home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / BASIC / 2913.ZIP / QBSCR.ZIP / QBSCR.INC < prev    next >
Text File  |  1989-09-01  |  2KB  |  30 lines
  1. '──────────────────────────────────────────────────────────────────────────
  2. ' DECLARE statements for all the QBSCR routines
  3. '──────────────────────────────────────────────────────────────────────────
  4. DECLARE FUNCTION BlockSize% (l%, r%, t%, b%)
  5. DECLARE FUNCTION ColorChk ()
  6. DECLARE FUNCTION GetBackground% (row%, col%)
  7. DECLARE FUNCTION GetForeground% (row%, col%)
  8. DECLARE FUNCTION GetString$ (leftCol!, row%, strLen%, foreColor%, backColor%)
  9. DECLARE FUNCTION GetVideoSegment! ()
  10. DECLARE FUNCTION MakeMenu% (choice$(), numOfChoices%, justify$, leftColumn!, rightColumn!, row%, marker$, fg%, bg%, hfg%, hbg%, qfg%, qbg%)
  11. DECLARE FUNCTION SubMenu% (choice$(), currentMenu%, numOfChoices%, justify$, leftColumn!, rightColumn!, row%, marker$, fg%, bg%, hfg%, hbg%, qfg%, qbg%)
  12. DECLARE FUNCTION ScreenBlank$ (delay)
  13. DECLARE SUB Banner (st$, row%)
  14. DECLARE SUB BlockRestore (l%, r%, t%, b%, scrArray%(), segment!)
  15. DECLARE SUB BlockSave (l%, r%, t%, b%, scrArray%(), segment!)
  16. DECLARE SUB BuildScreen (file$, mode%)
  17. DECLARE SUB Center (st$, row%)
  18. DECLARE SUB ClrScr (mode%, fillChar$)
  19. DECLARE SUB DisplayEntry (entry$, qfg%, qbg%, hfg%, hbg%, fg%, bg%, marker$, actionCode%)
  20. DECLARE SUB GetScreen (file$)
  21. DECLARE SUB PutScreen (file$)
  22. DECLARE SUB MakeWindow (topRow!, leftCol!, botRow!, rightCol!, foreColor%, backColor%, windowType%, frameType%, shadowColor%, explodeType%, label$)
  23. DECLARE SUB MultiMenu (menusArray$(), numEntries%(), menuTitles$(), justify$, marker$, shadowCode%, fg%, bg%, hfg%, hbg%, qfg%, qbg%, menuSelected%, menuEntrySelected%)
  24. DECLARE SUB OffCenter (st$, row%, leftCol%, rightCol%)
  25. DECLARE SUB QBPrint (st$, row%, col%, fore%, back%)
  26. DECLARE SUB ScrnRestore (firstLine%, lastLine%, scrArray%(), segment)
  27. DECLARE SUB ScrnSave (firstLine%, lastLine%, scrArray%(), segment)
  28. DECLARE SUB Wipe (top%, bottom%, lft%, rght%, back%)
  29.  
  30.